From 72f21cdfe326949c5c12b39ae5b14b628c000749 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 6 May 1993 22:21:12 +0000 Subject: [PATCH] (flush-lines, keep-lines, how-many): Delete spurious `s' from prompt arg to read-from-minibuffer. --- lisp/replace.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/replace.el b/lisp/replace.el index a3e2f03a5fa..488e1f19603 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -152,7 +152,7 @@ which will run faster and will not set the mark or print anything." A match split across lines preserves all the lines it lies in. Applies to all lines after point." (interactive (list (read-from-minibuffer - "sKeep lines (containing match for regexp): " + "Keep lines (containing match for regexp): " nil nil nil 'regexp-history))) (save-excursion (or (bolp) (forward-line 1)) @@ -179,7 +179,7 @@ Applies to all lines after point." If a match is split across lines, all the lines it lies in are deleted. Applies to lines after point." (interactive (list (read-from-minibuffer - "sFlush lines (containing match for regexp): " + "Flush lines (containing match for regexp): " nil nil nil 'regexp-history))) (save-excursion (while (and (not (eobp)) @@ -193,7 +193,7 @@ Applies to lines after point." (defun how-many (regexp) "Print number of matches for REGEXP following point." (interactive (list (read-from-minibuffer - "sHow many matches for (regexp): " + "How many matches for (regexp): " nil nil nil 'regexp-history))) (let ((count 0) opoint) (save-excursion -- 2.30.2